home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
et
/
tutorial
/
docs.lha
/
documentation
/
app_f.eps
(
.svg
)
< prev
next >
Encapsulated PostScript
|
1993-08-09
|
61KB
|
557x1021
|
8-bit (77 colors)
Labels:
black
|
darkness
OCR:
'shape2'lListing F:Lernabschnitt15:Beispielıshape2 Dec:20:11:36:1991::File::shape2.C::Page:1 }{ ww -~ //:Twoshape:with:dialog ***3 18 ***4 //:11.12.91 * 11 6 7 #include:"ET++.h" #include:"ShapeDocument.h" static:char: aboutMsg- *Extended:version:of:@Btwoshapes@Pillustrating:a:dialog:box"; 8 g =:10 12 13 :::15 :::16 int:cMAXINKS:=:50: :::17 :::18 Ink:*palette[cMAXINKS); :::19 :::20 Symbol:cDocTypeShapes ("TWOSHAPES"); :::21 :::22 :::23 :::24 //----ShapeApplication:- :::25 :::26 class:ShapeApp::public:Application: :::27 public: :::28 MetaDef(ShapeApp); :::29 30 :::31 ShapeApp(int:argc, char:*argv[]); ::::~ShapeApp(); ::::Document:"DoMakeDocuments(Symbol) :::32 :::33 :::34 {return:new:ShapeDocument():) :void:About() 35 ShowAlert(eAlertNote, aboutMsg):) :::36 }; :::37 38 Metalmpl0(ShapeApp): :::39 40 ShapeApp::ShapeApp(int:argc, char:*argv[]): Application (argc,:argv,cDocTypeShapes) :::41 :::42 Applinit(): :::43 44 palette[0]:ePatWhite; 45 palette[1]=new:RGBColor((float)0.75); :::46 ::::palette[2]=new:RGBColor((float)0.5): 47 palette[3]=new:RGBColor((float)0.25); 48 palette[4]-ePatBlack; :::49 palette[5]-:ePat00; :::50 palette [6]=ePat01; ::::palette [7]=ePat02; :::51 52 53 palette[8]-new:RGBColor(255, 0, 0); ::::palette[9]-new:RGBColor(0,255,:0); ::palette[10]=new RGBColor(0, 0, 255); :::54 :::55 :::56 :::57 ShapeApp::~ShapeApp() :::58 :::59 SafeDelete(palette[1]); 60 ::SafeDelete(palette[2]); Ch.Frei, F.Schaudt Software Schule Schweiz Anhang Seite:F28
(.svg)
(.svg)
